home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 22 / Amiga Format AFCD22 (Jan 1998, Issue 106).iso / -readerstuff- / d_keletsekis / tools / fastread / viewtext.g < prev   
Text File  |  1997-10-03  |  1KB  |  85 lines
  1. G4C
  2.  
  3. winbig 0 11 632 216 "Gui4Cli Help System"
  4. winsmall 0 -1 150 21
  5. wintype 11110001
  6. varpath "fastread.gc"
  7.  
  8. xonopen
  9. ifexists window fastread.gc
  10.     ;Nop
  11. else
  12.     setgad viewtext.g 3 off
  13.     setgad viewtext.g 4 off
  14.     setgad viewtext.g 5 off
  15. endif
  16.  
  17. xonclose
  18. set translation on
  19. lvuse viewtext.g 1
  20. lvclear
  21. ifexists window fastread.gc
  22.     gosub fastread.gc exit
  23. endif
  24.  
  25. xonrmb
  26. set translation on
  27. lvuse viewtext.g 1
  28. lvclear
  29. ifexists window fastread.gc
  30.     update viewtext.g 2 ""
  31.     guiwindow fastread.gc front
  32.     guiwindow fastread.gc on
  33. else
  34.     guiclose viewtext.g
  35. endif
  36.  
  37. box 0 0 372 12 out button
  38.  
  39. xlistview 0 12 0 211 "" "" "" 20 num
  40. gadid  1
  41. gadfont topaz.font 8 000
  42.  
  43. text 10 0 350 12 "" 50 nobox
  44. gadid 2
  45.  
  46. xbutton 372 0 60 12 Macro
  47. gadid 3
  48. if $VTMACRO > ""
  49. andifexists file $VTMACRO
  50.     run 'newshell "con:0/11/640/200/OUTPUT/CLOSE WAIT" from $VTMACRO'
  51. else
  52.     reqfile -1 -1 200 -60 "Run Macro..." load macro GCHELP:
  53.     if $macro != ""
  54.         run 'newshell "con:0/11/640/200/OUTPUT/CLOSE WAIT" from $macro'
  55.         macro = ""
  56.     endif
  57. endif
  58.  
  59. xbutton 432 0 50 12 Prev
  60. gadid 4
  61. lvuse fastread.gc 1
  62. lvgo prev
  63. topic = $$lv.rec
  64. gosub fastread.gc fetchtext 
  65.  
  66. xbutton 482 0 50 12 Next
  67. gadid 5
  68. lvuse fastread.gc 1
  69. lvgo next
  70. topic = $$lv.rec
  71. gosub fastread.gc fetchtext 
  72.  
  73. xbutton 532 0 50 12 Grab
  74. gosub viewtext.g grabtext
  75.  
  76. xbutton 582 0 50 12 Quit
  77. guiclose viewtext.g
  78.  
  79. xroutine grabtext
  80. reqfile -1 -1 200 -60 "Save Text As.." save txt SYS:
  81. if $txt != ""
  82.     lvuse viewtext.g 1
  83.     lvsave $txt
  84. endif
  85.